home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8404.d64 / drawline demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  54 lines

  1. 100 PRINT"[147]"TAB(10)"SINUSPLOT - DEMO
  2. 110 [153]"ES WIRD EIN ACHSENKREUZ UND DANN
  3. 120 PRINT"EINE SINUSFUNKTION IN HOCHAUF-
  4. 130 [153]"LOESENDER GRAFIK GEPLOTTET.
  5. 140 PRINT"ES WERDEN DIE ZEITEN ZUERST FUER
  6. 150 [153]"EINE REINE BASIC-VERSION UND DANN
  7. 160 PRINT"FUER EINE VERSION, DIE DIE MASCHINEN-
  8. 170 [153]"SPRACHEN GRAFIKAID BENUETZT, GEMESSEN.
  9. 180 PRINT"BITTE EINE TASTE DRUECKEN ![157]";
  10. 190 POKE198,0:POKE204,0:WAIT198,1:POKE204,1:GETX$
  11. 200 PRINT" ":TI$="000000"
  12. 210 V=53248:AD=8192:REM DEMO AUS 64 INTERN SEITE 91 - 92
  13. 220 A1=PEEK(V+17):A2=PEEK(V+24)
  14. 230 POKEV+17,59
  15. 240 POKEV+24,24
  16. 250 FORI=1024TO2023:POKEI,1:NEXT
  17. 260 FORI=8192TO16383:POKEI,0:NEXT
  18. 270 Y=100:FORX=0TO319:GOSUB360:NEXT
  19. 280 X=160:FORY=0TO199:GOSUB360:NEXT
  20. 290 X=0
  21. 300 FORI=-3.14159265TO3.14159265STEP.0196349541
  22. 310 Y=100+99*SIN(I):GOSUB360:X=X+1:NEXT
  23. 320 T1$=TI$:FORI=1TO1000:NEXT
  24. 330 POKEV+17,A1:POKEV+24,A2
  25. 340 PRINT"[147]DAS WAR DAS REINE BASICPROGRAMM.
  26. 350 [153]"ES DAUERTE ";:X$[178]T1$:[141]620:[137]390
  27. 360 OY[178]320[172][181](Y[173]8)[170](Y[175]7):OX[178]8[172][181](X[173]8)
  28. 370 MA[178]2[174]((7[171]X)[175]7):AV[178]AD[170]OY[170]OX
  29. 380 [151]AV,[194](AV)[176]MA:[142]
  30. 390 [153]"BITTE EINE TASTE DRUECKEN !CMD";
  31. 400 [151]198,0:[151]204,0:[146]198,1:[151]204,1:[161]X$
  32. 410 [153]" ":TI$[178]"000000"
  33. 420 [158]49152:[158]49155:[158]49158,16
  34. 430 Y[178]100:[158]49170,Y:X[178]160:[158]49176,X
  35. 440 X[178]0
  36. 450 [129]I[178][171]3.14159265[164]3.14159265[169].0196349541
  37. 460 Y[178]100[170]99[172][191](I):[158]49164,X,Y:X[178]X[170]1:[130]
  38. 470 T2$[178]TI$:[129]I[178]1[164]1000:[130]
  39. 480 [158]49194
  40. 490 [153]"LOADDAS WAR DAS PROGRAMM MIT GRAFIKAID.
  41. 500 PRINT"ES DAUERTE ";:X$=T2$:GOSUB620
  42. 510 PRINT"IM GEGENSATZ ZUM 1. BEISPIEL MIT":X$=T1$:GOSUB620
  43. 520 PRINT"DIE LINIENZUEGE WERDEN JETZT GELOESCHT!
  44. 530 [153]"BITTE EINE TASTE DRUECKEN !CMD";
  45. 540 [151]198,0:[151]204,0:[146]198,1:[151]204,1:[161]X$
  46. 550 [153]" ":[158]49152:[158]49158,10
  47. 560 X[178]0
  48. 570 [129]I[178][171]3.14159265[164]3.14159265[169].0196349541
  49. 580 Y[178]100[170]99[172][191](I):[158]49167,X,Y:X[178]X[170]1:[130]
  50. 590 Y[178]100:[158]49173,Y:X[178]160:[158]49179,X
  51. 600 [129]I[178]1[164]1000:[130]
  52. 610 [158]49194:[128]
  53. 620 [153][202](X$,3,2)" MIN UND "[202](X$,5)" SEK":[142]
  54.